Creating images with R

with a little bit of magick

My Meme

My meme uses a cartoon image of the Grinch I found online.
The comedy is a little niche and is meant to be absurd in nature and works similarly as an anti-joke. This type of comedy generally becomes amusing once one has seen too many memes almost being over-saturated. The mundanity and minor shock value becomes comedy when in contrast to other memes. It is perhaps enjoyed ironically.

Code for meme.R

library(magick)

funny <- image_read("grinchsmile.jpg")

funnyScaled <- funny %>% 
  image_scale(200) 
# Scale the funny image for ease of viewing.
# Adds funny text
# Saves the funny image

funnyAnnotated <- funnyScaled %>% 
  image_annotate("Me when I commit a petty crime")

funnyAnnotated %>%
  image_write("my_meme.png")
funnyAnnotated

My Animated GIF

My animated GIF is of a person slicing “HOW IT FEELS AT 2AM”.

Code for animation.R

library(magick)
# Read all the image names
image_files <- list.files("Spear", pattern = "*.png", full.names = TRUE)

# Put all the read images in a vector for animation
images <- image_read(image_files)
  
# Animate the images
animation <- image_animate(images, delay = 15)

# Write the animation as a .gif
image_write(animation, "animation.gif")